﻿Public Class StartupTheme : Implements Theme

	Public Sub Apply(sender As Object) Implements Theme.Apply
		If TypeOf sender Is Form Then
			sender.Font = Font
		ElseIf TypeOf sender Is Homepage Then
			sender.BackgroundImage = My.Resources.defaultback
			sender.BackgroundImageLayout = ImageLayout.Stretch
		ElseIf TypeOf sender Is Window Then
			sender.BackColor = Color.Transparent
			sender.Font = Font
		ElseIf TypeOf sender Is TabStrip Then
			sender.Font = Font
			sender.BackColor = Color.Transparent
			sender.BackgroundImage = My.Resources.panelback
			sender.BackgroundImageLayout = ImageLayout.Tile
		ElseIf TypeOf sender Is ProcessBase Then
			sender.BackColor = Color.Transparent
			sender.Font = Font
		End If
	End Sub

	Public Sub Blur(G As System.Drawing.Graphics, Control As System.Windows.Forms.Control, Rect As System.Drawing.Rectangle) Implements Theme.Blur

	End Sub

	Public ReadOnly Property Font As System.Drawing.Font Implements Theme.Font
		Get
			Return New Font("segoe ui", 9)
		End Get
	End Property

	Public ReadOnly Property FormColor As System.Drawing.Color Implements Theme.FormColor
		Get
			Return SystemColors.ButtonFace
		End Get
	End Property

	Public Sub PaintForm(g As System.Drawing.Graphics, sender As Object) Implements Theme.PaintForm

	End Sub

	Public Sub PaintListColumnHeader(graphics As System.Drawing.Graphics, R As System.Drawing.Rectangle, Col As System.Windows.Forms.DataGridViewColumn, Filtered As Boolean) Implements Theme.PaintListColumnHeader

	End Sub

	Public Sub PaintListHeader(graphics As System.Drawing.Graphics, R As System.Drawing.Rectangle) Implements Theme.PaintListHeader

	End Sub

	Public ReadOnly Property ReadOnlyColor As System.Drawing.Color Implements Theme.ReadOnlyColor
		Get

		End Get
	End Property

	Public Sub PaintListRowHeader(graphics As System.Drawing.Graphics, R As System.Drawing.Rectangle, Row As System.Windows.Forms.DataGridViewRow) Implements Theme.PaintListRowHeader

	End Sub

	Public ReadOnly Property LabelColor As System.Drawing.Color Implements Theme.LabelColor
		Get

		End Get
	End Property
End Class
